\version "2.24.0"

date = #(strftime "%d %B %Y" (localtime (current-time)))

\header {
  title = "Tainted Love"
  composer = "Gloria Jones / Ed Cobb"
  %tagline = \markup {\bold \date}
  tagline = \markup {\bold { 05 August 2021 } }
}

%part: melody
melody = {
  \set Staff.instrumentName = "Melody "
  %\set Staff.midiInstrument = #"trumpet"
  \set Score.rehearsalMarkFormatter = #format-mark-box-letters
  \tempo 4 = 160
  \relative c' {
    \time 4/4 \key g \minor

    | <g' bes d>1\sfp\< ~
    | <g bes d>1
    \bar "||"

    | R1*3\!
    | r2 r8 c ~ c ees ~ |

    \mark \default %A
    | ees2 g,
    | bes4 g bes ees |
    | r2 d8 g,4 bes8 ~
    | bes4 g bes ees
    | r2 d8 g,4 bes8 ~
    | bes4 g8 g bes4 c
    | d( g,) g8 f4 g8
    | g8( bes) d d ~ d4 f8 d ~
    | d2 g,
    | bes8( g) r4 bes c
    | d4 r g,2
    | bes8( g) r4 bes c
    | d2 g,
    | bes8( g) r4 bes c
    | d8 d4 d8 ~ d c d4
    | d4 d d r
    \bar "||"

    \mark \markup { \musicglyph "scripts.segno" }
    | r4 r8 b ~ b4 a8( g)
    | a4 g8 g ~ g2
    | r4 r8 d' ~ d4 c8( bes )
    | d4 g, bes2
    | r8 ees ~ ees4 ees ees8 ees ~
    | ees8 ees4 f8 ~ f4 ees8 \breathe ees
    | c4 c8 c ~ c4 c8 d ~
    | d8 c4 c8 ~ c d4.
    | d4 d d d
    | d4 d d8 d4.
    | g2 r8 g, ~ g g
    | bes8( g) r4 r2
    | \once \override Score.RehearsalMark.self-alignment-X = #0.8 \mark \markup { \italic "to Coda" \musicglyph "scripts.coda" }
      r4 r8 d' ~ d4 g,
    | bes8( g4.) r2
    \bar "||"

    \break

    \mark \default %B
    | d'2 g,
    | bes4 g bes ees
    | r2 d8 g,4 bes8 ~
    | bes4 g g f
    | r2 d'8 g,4 bes8 ~
    | bes4 r bes8 c4 d8 ~
    | d4 d g, g
    | bes8 d4 d8 ~ d4 f8 d ~
    | d2 g,
    | bes8( g) g4 bes8 c4 d8 ~
    | d4 r8 g,8 g4 g8 bes(
    | g2) bes4 c
    | d4 g, g g8 bes(
    | g2) bes8 c4 d8 ~
    | d4 d d d
    | d4 d^\markup{ \italic "D.S. al Coda" } d r
    \bar "||"

    \break

    %\once \override Score.RehearsalMark.self-alignment-X = #0.8
    \mark \markup { \musicglyph "scripts.coda" Coda }
    | r2 d8 g,4 bes8( ~
    | bes8 g) r4 r8 a'4.
    | g2 g
    | g8( des) des4 c8 des4 bes8 ~
    | bes4 g8 g ~ g g4 g'8 ~
    | g2 r8 des4 ees8 ~
    | ees8 g, g g bes g4 g8 ~
    | g2 bes4 c
    | d4 d d d
    | a'8 g4 g8 ~ g2
    \repeat volta 2 {
      | r2 d8 g,4 bes8(
      | g2) r2
    }

    | <g' bes d>1 ~
    | <g bes d>1
    \bar "|."

  }
}

%part: harmony
harmony = {
  \set Staff.instrumentName = "Harmony "
  %\set Staff.midiInstrument = #"alto sax"
  \set Score.rehearsalMarkFormatter = #format-mark-box-letters
  \tempo 4 = 160
  \relative c' {
    \time 4/4 \key g \minor

    | <d g bes>1\sfp\< ~
    | <d g bes>1
    \bar "||"

    | R1*3\!
    | r2 r8 <ees g>4.

    \mark \default %A
    | <d g>2 <bes d>
    | ees2 <d f>4 <g bes>
    | r2 d2
    | ees4 ees <d f> <g bes>
    | r2 d2
    | ees4 ees <d f> <g bes>
    | d2 <bes d>
    | d2. g4 ~
    | g2 d
    | ees4 r <d f> <ees g>
    | <g bes>4 r d2
    | ees4 r <d f> <ees g>
    | d2 d
    | ees4 r <d f> <ees g>
    | <g bes>1
    | <f bes>4 <f bes> <f bes> r
    \bar "||"

    \mark \markup { \musicglyph "scripts.segno" }
    %| r4 r8 d ~ d2 ~
    %| d1
    %| r4 r8 f ~ f2 ~
    %| f2 d
    %| r8 g ~ g2.
    %| g2 <g bes>
    %| <ees g>2. ~ <ees g>8 <ees g> ~
    %| <ees g>1
    %| <g bes>4 <g bes> <g bes> <g bes>
    %| <g bes>4 <g bes> <g bes>2

    | <b d>1\p ~
    | <b? d>1
    | <g d'>1\mp ~
    | <g d'>1
    | <g bes>1\mf ~
    | <g bes>1

    %| r1
    %| r2 r4 g
    %| f8 ees ~ ees4 r2
    %| r2 r4 ees8 bes'
    %| aes2 ~ aes2
    %| <g bes>1

    | <ees g>1\f ~
    | <ees g>1
    | <ees g bes>1 ~
    | <ees ges bes>2 <ees f bes>
    | <bes' d>2 r8 d, ~ d4
    | ees4 r r2
    | r4 r8 d ~ d2
    | ees2 r
    \bar "||"

    \mark \default %B
    | d2 d
    | ees2 <d f>4 <g bes>
    | r2 d
    | ees2 <bes d>4 <c ees>
    | r2 d
    | ees4 r <d f>8 <ees g>4 d8 ~
    | d1
    | d2. g4 ~
    | g2 d
    | ees4 ees <d f>8 <ees g>4 r8
    | d2 d
    | ees2 <d f>4 <ees g>
    | d4 g d2
    | ees2 <d f>8 <ees g>4 d8 ~
    | d4 <g bes> <g bes> <g bes>
    | <f bes>4 <f bes>^\markup{ \italic "D.S. al Coda" } <f bes> r
    \bar "||"

    \break

    \mark \markup { \musicglyph "scripts.coda" Coda }
    | r2 d
    | ees4 r r8 <g bes d>4.
    | <bes d>2 <g d'>
    | g2 f8 <ees g>4 r8
    | d2 d4. g8 ~
    | g2 r8 <ees g>4 r8
    | d2 d
    | ees2 <d f>4 <ees g>
    | <g bes> <g bes> <g bes> <g bes>
    | <bes d>8 <bes d>4 <bes d>8 ~ <bes d>2
    \repeat volta 2 {
      | r2 d,
      | ees2 r
    }

    | <d g bes>1 ~
    | <d g bes>1
    \bar "|."

  }
}

%part: bass
bass = {
  \set Staff.instrumentName = "Bass "
  %\set Staff.midiInstrument = #"tuba"
  \set Score.rehearsalMarkFormatter = #format-mark-box-letters
  \tempo 4 = 160
  \relative c {
    \time 4/4 \key g \minor

    | g1\sfp\< ~
    | g1
    \bar "||"

    | g4\! g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.

    \mark \default %A
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g g g
    | bes4 bes bes bes
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g g g
    | bes4 bes bes bes
    \bar "||"

    \mark \markup { \musicglyph "scripts.segno" }
    | g4 g g g
    | g4 g g g
    | bes4 bes bes bes
    | bes4 bes bes bes
    | ees4 ees ees ees
    | ees4 ees ees ees
    | c4 c c c
    | c4 c c c
    | c4 c c c
    | c4 c bes bes
    | g4 g bes bes
    | ees4 ees bes8 c4.

    | \once \override Score.RehearsalMark.self-alignment-X = #0.8 \mark \markup { \italic "to Coda" \musicglyph "scripts.coda" }
      g4 g bes bes
    | ees4 ees bes8 c4.
    \bar "||"

    \mark \default %B
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g g g
    | bes4 bes bes bes
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g g g
    | bes4 bes^\markup{ \italic "D.S. al Coda" } bes r
    \bar "||"

    \break

    \mark \markup { \musicglyph "scripts.coda" Coda }
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g bes bes
    | ees4 ees bes8 c4.
    | g4 g g g
    | bes4 bes bes bes
    \repeat volta 2 {
      | g4 g bes bes
      | ees4 ees bes8 c4.
    }

    | g1 ~
    | g1
    \bar "|."

  }
}

%part: descant
descant = {
  \set Staff.instrumentName = "Hits "
  %\set Staff.midiInstrument = #"electric guitar (clean)"
  \set Score.rehearsalMarkFormatter = #format-mark-box-letters
  \tempo 4 = 160
  \relative c''' {
    \time 4/4 \key g \minor

    | R1*2
    \bar "||"

    | R1*4

    \mark \default %A
    | R1*16
    \bar "||"

    \mark \markup { \musicglyph "scripts.segno" }
    | R1*10
    | r4 c, ees f
    | g4 c2.
    | \once \override Score.RehearsalMark.self-alignment-X = #0.8 \mark \markup { \italic "to Coda" \musicglyph "scripts.coda" }
      R1*2
    \bar "||"

    \mark \default %B
    | R1*2
    | g4 g r2
    | r1
    | g4 g r2
    | R1*5
    | g4 g r2
    | r1
    | g4 g r2
    | R1*2
    | r1
    \bar "||"

    \break

    \mark \markup { \musicglyph "scripts.coda" Coda }
    | g4 g r2
    | r4 c, ees f
    | g4 c2.
    | r4 c, ees f
    | g4 c2.
    | r4 c, ees f
    | g4 c2.
    | r4 c, ees f
    | g4 c2.
    | r4 c, ees f
    \repeat volta 2 {
      | g4 c2.
      | r4 c, ees f
    }

    | R1*2
    \bar "|."

  }
}

theWords = \lyricmode {
  _

  Some times I feel I've got to run a -- way, I've got to get a -- way, from
  the pain you drive in -- to the heart of me, the love we share seems to go
  no -- where and I've lost my light for I toss and turn I can't sleep at
  night. Once I ran to you, now I'll run from you, this tain -- ted love
  you've giv -- en, I give you all a girl could give you, take my tears and
  that's not liv -- ing, oh tain -- ted love, tain -- ted love.

  Now I know I've got to run a -- way, I've got to get a -- way, you don't
  really want any more from me, to make things right you need some
  -- one to hold you tight and you'll think love is to pray, but I'm sor -- ry
  I don't pray that way.

  Tain -- ted love don't touch me please, I can -- not stand the way you
  tease, I love you though you hurt me, so now I'm gon -- na pack my things
  and go.

  Tain -- ted love.
}

changes = \chordmode {
  | g1:min
  | g2:min r
  | g2:min bes
  | ees2 bes8 c4.:min
  | g2:min bes
  | ees2 bes8 c4.:min
  | g1:min
  | ees2 bes8 c4.:min7
  | g1:min
  | ees2 bes8 c4.:min7
  | g1:min
  | ees2 bes8 c4.:min
  | g1:min
  | g1:min/bes
  | g1:min
  | ees2 bes8 c4.:min
  | g1:min
  | g1:min
  | ees2 bes8 c4.:min
  | ees2 bes8 c4.:min
  | g1:min
  | bes1
  | g1
  | g1
  | bes1
  | bes1
  | ees1
  | ees1
  | c1:min
  | c1:min
  | c1:min9
  | c1:min9
  | g1:min
  | ees2 bes8 c4.:min
  | g1:min
  | ees2 bes8 c4.:min
  | g1:min
  | ees2 bes8 c4.:min7
  | g1:min
  | ees2 g8:min/bes c4.:min11
  | g1:min
  | ees2 bes8 c4.:min
  | g1:min
  | bes1
  | g1:min
  | ees2 bes8 c4.:min
  | g1:min
  | ees2 bes8 c4.:min
  | g1:min
  | ees2 bes8 c4.:min
  | g1:min
  | bes1

  | g1:min
  | ees2 bes8 c4.:11
  | g1:min
  | ees2:7 bes8 c4.:min
  | g1:min
  | ees2 bes8 c4.:min
  | g1:min
  | ees2 bes8 c4.:min
  | g1:min
  | g1:min
  | g1:min
  | ees2 bes8 c4.:min

  | g1:min
  | g1:min

}

\book {
  \score {
    \unfoldRepeats
    <<
      \new Staff \descant
      \new Staff \melody
      \new Staff \harmony
      \new Staff { \transpose c c, \bass }
    >>
    \midi { }
  }
}

#(set-default-paper-size "letter" 'portrait)

#(define output-suffix "Score")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %obsolete-between-system-padding=0  system-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)  score-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)
    page-count = #4
  }
  \header { instrument = "C / Do" }
  \score {
    \new StaffGroup {
    <<
      \new ChordNames { \set chordChanges = ##t \changes }
      %\new ChordNames { \changes }
      \new Staff \descant
      \new Staff
      <<
        \new Voice = "melody" \melody
        \new Lyrics \lyricsto "melody" { \theWords }
      >>
      \new Staff \harmony
      \new Staff { \clef bass \bass }
    >>
    }
  }
}

#(define output-suffix "C-melody")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %obsolete-between-system-padding=0  system-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)  score-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)
  }
  \header { instrument = "C / Do" }
  \score {
    \new StaffGroup {
    <<
      \new Staff \descant
      \new Staff
      <<
        \new Voice = "melody" { \melody }
        \new Lyrics \lyricsto "melody" { \theWords }
      >>
    >>
    }
  }
}

#(set-default-paper-size "letter" 'portrait)
#(define output-suffix "C-bass")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %obsolete-between-system-padding=0  system-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)  score-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)
  }
  \header { instrument = "C / Do" }
  \score {
    \new StaffGroup {
    <<
      \new Staff { \transpose c c, { \clef bass \harmony } }
      \new Staff { \clef bass \bass }
    >>
    }
  }
}

#(define output-suffix "Bflat-melody")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %obsolete-between-system-padding=0  system-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)  score-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)
  }
  \header { instrument = "B flat / Si bémol" }
  \score {
    \new StaffGroup {
    <<
      \new Staff { \transpose bes c \descant }
      \new Staff
      <<
        \new Voice = "melody" { \transpose bes c' \melody }
        \new Lyrics \lyricsto "melody" { \theWords }
      >>
    >>
    }
  }
}

#(set-default-paper-size "letter" 'portrait)
#(define output-suffix "Bflat-bass")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %obsolete-between-system-padding=0  system-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)  score-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)
  }
  \header { instrument = "B flat / Si bémol" }
  \score {
    \new StaffGroup {
    <<
      \new Staff { \transpose bes c \descant }
      \new Staff { \transpose bes c' \harmony }
      \new Staff { \transpose bes c''' \bass }
    >>
    }
  }
}

#(define output-suffix "Eflat-melody")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %obsolete-between-system-padding=0  system-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)  score-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)
  }
  \header { instrument = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
    <<
      \new Staff { \transpose ees c \descant }
      \new Staff
      <<
        \new Voice = "melody" { \transpose ees c \melody }
        \new Lyrics \lyricsto "melody" { \theWords }
      >>
    >>
    }
  }
}

#(set-default-paper-size "letter" 'portrait)
#(define output-suffix "Eflat-bass")
\book {
  \paper {
    %#(define indent (* 0 cm))
    %obsolete-between-system-padding=0  system-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)  score-system-spacing.padding = #(/ obsolete-between-system-padding staff-space)
  }
  \header { instrument = "E flat / Mi bémol" }
  \score {
    \new StaffGroup {
    <<
      \new Staff { \transpose ees c \descant }
      \new Staff { \transpose ees c' \harmony }
      \new Staff { \transpose ees c'' \bass }
    >>
    }
  }
}